home *** CD-ROM | disk | FTP | other *** search
/ Aminet 16 / Aminet 16 (1996)(GTI - Schatztruhe)[!][Dec 1996].iso / Aminet / dev / lang / uc_0_30.lha / u / tca / tc0016.ua < prev    next >
Text File  |  1996-10-30  |  502b  |  46 lines
  1. `**********************
  2. `* P R O J E C T  < U >
  3. `*
  4. `* Author and copyright
  5. `* (c) 1996
  6. `* Paul van der Valk
  7. `*
  8. `* file: tc0016.ua
  9. `*
  10. `* Tests Labdef & Goto
  11. `*
  12. `* output should read:
  13. `*   "1"
  14. `*   "2"
  15. `*   "3"
  16. `*   "4"
  17. `*   "5"
  18. `*   "6"
  19. `*   "7"
  20.  
  21. #1 .H 2 0 0 0
  22. #2 .M "tc0016" 20 10 0 0
  23.  
  24. #10 .V "counter"
  25.  
  26. #20 >22 .a 10 21
  27. #21 .n 1
  28.  
  29. #22 >23 .L "loop"
  30.  
  31. #23 >25 .c 4 24
  32. #24 .v 10
  33.  
  34. #25 >40 .c 3 0
  35. #26 .i 27 30 0
  36. #27 @le 28 29
  37. #28 .v 10
  38. #29 .n 7
  39. #30 .g 22
  40.  
  41. #40 >26 .a 10 41
  42. #41 @pl 42 43
  43. #42 .v 10
  44. #43 .n 1
  45.  
  46.